home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / pc / clip.dxr / 00021_É{ÉäÉÖÅ[ÉÄÉ{É^Éì.ls < prev    next >
Encoding:
Text File  |  2003-03-10  |  718 b   |  42 lines
  1. global cdvoume, page
  2.  
  3. on mouseDown me
  4.   mynumber = me.spriteNum
  5.   case mynumber of
  6.     13:
  7.       cdvoume = cdvoume + 1
  8.     14:
  9.       cdvoume = cdvoume - 1
  10.   end case
  11.   if cdvoume > 13 then
  12.     cdvoume = 13
  13.   else
  14.     if cdvoume < 0 then
  15.       cdvoume = 0
  16.     end if
  17.   end if
  18.   if page <> 5 then
  19.     if sprite(43).movieRate = 1 then
  20.       set the volume of sound 1 to 0
  21.     else
  22.       set the volume of sound 1 to cdvoume * 19
  23.     end if
  24.   else
  25.     set the volume of sound 1 to cdvoume * 19
  26.   end if
  27.   repeat with i = 15 to 27
  28.     sprite(i).visible = 1
  29.   end repeat
  30.   repeat with i = 15 + cdvoume to 27
  31.     sprite(i).visible = 0
  32.   end repeat
  33. end
  34.  
  35. on mouseEnter me
  36.   cursor([1, 2])
  37. end
  38.  
  39. on mouseLeave me
  40.   cursor(0)
  41. end
  42.